home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / maxime.dxr / 00008.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  1.1 KB  |  44 lines
  1. on exitFrame
  2.   global sprpos, Aframe
  3.   if rollOver(5) then
  4.     set Aframe to the frame
  5.     go("naveg")
  6.   end if
  7.   put sprpos
  8.   if sprpos = 1 then
  9.     set the visible of sprite 3 to 0
  10.     set the visible of sprite 4 to 1
  11.     set sprpos to 2
  12.   else
  13.     if sprpos = 2 then
  14.       set the visible of sprite 3 to 1
  15.       set the visible of sprite 4 to 0
  16.       set sprpos to 3
  17.     else
  18.       if sprpos = 3 then
  19.         set the visible of sprite 3 to 0
  20.         set the visible of sprite 4 to 1
  21.         set sprpos to 4
  22.       else
  23.         if sprpos = 4 then
  24.           set the visible of sprite 4 to 0
  25.           set the visible of sprite 2 to 1
  26.           set sprpos to 5
  27.         else
  28.           if sprpos = 5 then
  29.             set the locH of sprite 2 to the locH of sprite 2 + 45
  30.             if the locH of sprite 2 >= 640 then
  31.               set the locH of sprite 2 to -135
  32.               puppetSprite(2, 0)
  33.               puppetSprite(3, 0)
  34.               puppetSprite(4, 0)
  35.               go(5)
  36.             end if
  37.           end if
  38.         end if
  39.       end if
  40.     end if
  41.   end if
  42.   go(the frame)
  43. end
  44.